home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 2 (Sweden) / BackPacker 2 (Sweden) (Disc 1).7z / BackPacker 2 (Sweden) (Disc 1).bin / pc / instdata / instin02 / 00135.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  425 b   |  16 lines
  1. on mouseDown
  2.   puppetSprite(the clickOn, 1)
  3.   set the memberNum of sprite the clickOn to the memberNum of sprite the clickOn + 1
  4.   puppetSound("klick")
  5.   updateStage()
  6.   repeat while the stillDown
  7.   end repeat
  8.   set the memberNum of sprite the clickOn to the memberNum of sprite the clickOn - 1
  9.   puppetSprite(the clickOn, 0)
  10.   updateStage()
  11.   repeat with n = 1 to 48
  12.     puppetSprite(n, 0)
  13.   end repeat
  14.   go("exitgame")
  15. end
  16.